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Per ricevere gli arretrati di compilare il seguente tagliando: 

K 

i Compilare ed inviare in busta chiusa a: 

J.SOTt viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome_ 

Cognome 
Indirizzo. 


CAP_ Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 

SfèPillS - Anno- 

dedicato a_ Anno_ 

a L. 2.000 cad. per un totale di L. a mezzo 


□ assegno allegato □ contanti allegati 

K 

Guida per l'input dei programmi versioni 
C64 


Notate che i listati contengono 'paro¬ 
le' racchiuse tra parentesi graffe ( }. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [()] deve essere premuto con¬ 


temporaneamente al tasto COMMO¬ 
DORE. Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico "so¬ 
litario"' questo dovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL. 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori. 


{CLR } 
{HOME} 
{SU} 
-'OR" } 
{SIN} 

{ DF.S } 

{ RVS } 
{OFF} 

{ BLK } 

{ WHT } 
t RED} 


[ ShiM 

! 

ClB/MOMf 

■ 


’ 



SMIH 

i 

Il casa a] 

; 

hh 


n cesa u] 


hmhi 

SHIM 

1 

^CBSB =>] 
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C=CBSB^| 




[ cut 


" 

- 

[ citi 




[ CIBI 


pn 

& 

[CIBI 




{CYN } 
{ PUR} 
{GRN} 
{ BLU } 
{ YEL} 
(< 1>1 
I < 2> I 
(<3>| 
1<4>| 
(<5>! 
(< 6 >| 


[CIBI 

1*1 




| S ] 
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I 6 1 




V 7 1 

___ 

CIBI 

' Il 


HO 

HO 

HO 

HO 

HO 

HO 


k 

(<7>| 

1 

( < 8> 1 

□ 

{FI} 

B 

ÌF2) 


t F 3 } 

□ 

[FA] 

fi 

i F5 } 


{ F6 } 


{F7} 

E 

■1 

{ F8 } 


□ o 

□ 

□ o 

■ ■ 
■ ■ 

m 

■1 
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CD 

fi 

03 

II 

GB 

Bl 

GB 

II 

GEI 
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Stop Bus 

Se non l’hai sia fatto, memorizza 
STOP BUG e salvalo su nastro o di¬ 
sco. 

Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 


parola: "-.rem” seguita da un nume¬ 
ro, detto checksum; NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell’angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me? per PRINT). 

Usando STOP BUG tieni conto del 

4 













fatto che sii spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 


Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca; al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE, e per riatti¬ 
varlo batti SYS 40704. 


STOP BUG per C64 

100 POKE55,0 :POKE56,PEEK(56)-1:R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO-" 

1 10 FORI=RTOR+l32:READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA":END 

140 SYS(R) : PRINT"{CLR} { 2 GIU ’ }{RVS}STOP BUG{OFF} ATTIVAT 
O.": NEW 

200 DATAI 73,36,3,201 ,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
230 DATAI 69,0,133,254,96,32,87,241 ,1 33 
24 0 DATA2 51 ,1 34 *, 252,1 32,2 53,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,101 ,254,1 33 
260 DATA254,!65,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,255,165,214,141 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,210,255,169,1 8,32,21 0,255 
300 DATAI 69,58,32,210,255,1 66,2 54,1 69,0 
310 DATAI 33,2 54,172,33,999,192,87,20 8,6 
320 DATA32,205,1 89,76,11 7,999,32,20 5,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251 ,3,133,21 4,76,55,999 
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C64 


Joystick opz. 



serpenti innamorati 


Questa è una versione del classico 
videosi co da bar "Snake" per due 
giocatori, con in più alcune caratte¬ 
ristiche che lo rendono interessan¬ 
te ed originale: lo schermo è diviso 
in sezioni di diverso colore, ed ad 
ogni colore percorso da uno dei 


due serpenti corrisponde un deter¬ 
minato incremento del punteggio. 
I due giocatori possono utilizzare 
o ambedue la tastiera del C64 op¬ 
pure uno il joystick (porta 2) e l’al¬ 
tro la tastiera. 


1 00 

POKE532 80,7 :POKE532 81 ,1 

: rem 

238 

1 1 0 

PRINT"{CLR}{BLU}" 

: rem 

21 

1 20 

PRINTSPC(9)"{RED}{RVS} I SERPENTI INNAMORATI {OFF} 


{BLU}" 

: rem 

88 

1 50 

PRINT 

: rem 

35 

1 60 

PRINTSPC(13);"USARE I TASTI:" 

: rem 

1 98 

1 70 

PRINTSPC(9);"{GIU 1 }{RVS}GIOCATORE{OFF}{ 

4 SPAZI}{RVS} 


GIOCATORE{OFF}" 

: rem 

1 67 

1 80 

PRINTSPC(12);"{RVS}UNO{OFF}{ 10 SPAZI}{RVS}DUE{OFF}" 



: rem 

87 

1 90 

PRINTSPC(13);"{GIU'}E{ 12 SPAZl}@" 

: rem 

21 5 

200 

PRINTSPC(12);"S D{ 10 SPAZI}[ ]" 

: rem 

1 35 

21 0 

PRINTSPC(13);"X{ 12 SPAZI}?" 

: rem 

209 

220 

PRINTSPC(17) ;"PUNTI :" 

: rem 

9 

230 

PRINTSPC(13);"{GIU'}BIANCO= 1 '{RVS}{WHT} {OFF}{BLU}' 


II 

: rem 

1 25 

240 

PRINTSPC(13);"CIANO={ 2 SPAZl}3 '{RVS}{CYN} {OFF} 



{BLU}'" 

: rem 

1 99 

250 

PRINTSPC(13);"PORPORA=5 '{RVS}{PUR} {OFF}{BLU}'" 




: rem 

1 28 

260 

PRINTSPC(13);"BLU={ 4 SPAZl}6 '{RVS} {OFF}’":rem 

135 

270 

PRINT"{GIU’} CHI VINCE OTTIENE UN BONUS 

DI 50 PUNTI" 



: rem 

1 36 

280 

PRINTSPC(15);"{GIU'}1-TASTIERA" 

: rem 

1 5 

290 

PRINTSPC(15);"2-JOYSTICK" 

: rem 

1 9 

300 

PRINTSPC(7)(SOLO PER IL GIOCATORE 1)" 

: rem 

229 

310 

PRINTSPC(13);"IMPOSTA 1 O 2" 

2 rem 

1 0 

320 

POKEl98,0 

2 rem 

1 94 

330 

GETA$:JK=VAL(A$):IFJK<lORJK>2THEN330 

2 rem 

1 82 

340 

IFJK=1THENJK=197 

2 rem 

203 

350 

POKE251,JK 

: rem 

32 

360 

PRINT"{CLR}ATTENDERE UN ATTIMO" 

2 rem 

1 0 

370 

POKE52,48:POKE56,48:CLR 

: rem 

79 

380 

BR=PEEK(51)+PEEK(52)*256 

2 rem 

23 
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390 POKE5 63 3 4,PEEK(563 34)AND254 :POKEl ,PEEK(1)AND251 

:rem 189 

400 FORX=BRTOBR+511:POKEX,PEEK(X+53248-BR):NEXT :rem 195 
410 POKEl,PEEK(1)OR4:POKE56334,PEEK(56334)ORI :POKE53272,( 
PEEK(53272)AND240)+12 :rem 221 

420 FORX=1 2528T01 253 5 :READI :POKEX,I :NEXTX : rem 93 

430 FORX=l 2 552T01 2 559:READI:POKEX,I :NEXTX : rem 97 

440 FORX=1 2768TOl 2 775:READI:POKEX,I:NEXTX : rem 107 

450 FORX=l 2784T01 2791 :READI:POKEX,I:NEXTX : rem 104 

460 FORX=l 2544T01 2551 :POKEX,255 :NEXTX : rem 17 

470 DATA24,60,90,153,24,60,90,153,153,90,60,24,153,90,60, 


24 :rem 129 

4 80 DATAI 7, 3 4,68,2 55,255, 68,3 4,1 7,1 36,68,34,255,2 55,3 4,68 



,136 

: rem 

18 

490 

JK=PEEK(251) 

: rem 

1 25 

500 

POKE53280,3:POKE53281,13:GOTO660 

: rem 

48 

51 0 

FORH=15TOOSTEP-3 

: rem 

21 5 

520 

POKE54296,H 

: rem 

68 

530 

FORI = 0TO2 0STEP5 

: rem 

1 71 

540 

POKE542 7 6,129 

: rem 

1 52 

550 

FORJ=1TOl0 :NEXTJ 

: rem 

0 

560 

POKE542 76,128 

: rem 

1 53 

570 

POKE54273,72-1:POKE54272,169-1 

: rem 

138 

580 

NEXTI,H 

: rem 

1 53 

590 

RETURN 

: rem 

1 26 

600 

PA=PEEK(56320) 

: rem 

21 8 

61 0 

IF-((PAAND21 0)=0)=1THENDl=-40:Hl=30:RETURN 

: rem 

21 1 

620 

IF—((PAAND2 T1)=0)=1THENDl=40:Hl=33 :RETURN 

: rem 

171 

630 

IF=((PAAND21 2)=0)=1THENDl=-l :Hl=60 rRETURN 

: rem 

167 

640 

IF-((PAAND2T3)=0)=1THENDl=1:Hl=62:RETURN 

: rem 

1 26 

650 

RETURN 

: rem 

1 23 

660 

HI = 1 

: r^m 

1 55 

670 

CC=542 72:Cl=1 2 69:C2 = 1 93 7:Dl=4 0:D2 = -4 0:Hl=33 : 

H2=30: 

Si = 


0 :S2 = 0:LF=0 

: rem 

233 

680 

POKE542 96,1 5 :POKE646,0 :SD=1 

: rem 

1 3 

690 

PRINT"{WHT}{CLR}" 

: rem 

8 

700 

PRINTSPC(9);"UNO—TEMPO—DUE-HI" 

: rem 

97 

71 0 

TI$="000000" 

: rem 

250 

720 

PRINTTAB(9);"-0-";RIGHT$(TI$,3)"-0- 


tl 


{SIN}-" 

: rem 

1 31 

730 

FORI=0TO39 

: rem 

70 

740 

POKEl 1 44 + 1,42 :POKEl14 4+CC+1,2 :POKEl 984 + 1,42: 

POKEl984+ 


CC+I,2 

: rem 

87 

750 

NEXTI 

: rem 

36 

760 

F0RI=4T024 

: rem 

71 

770 

POKEl 0 2 4 + 1*40,42 :POKE55296 + 1*40,2:POKEl 063 + 1 

*40,42 

: PO 


KE55335+1*40,2 

: rem 

145 

780 

NEXTI 

: rem 

39 

790 

F0RI=55536T056136STEP40 

: rem 

93 

800 

F0RJ=10TO30 

: rem 

1 09 

810 

POKEI+J,3 

: rem 

229 
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820 

NEXTJ,I 

: rem 

1 52 

830 

FORI = 55 696 TO 55 97 6 STEP 4 0 

: rem 

1 06 

840 

FORJ =15T02 5 

: rem 

1 22 

850 

POKEI+J,4 

: rem 

234 

860 

NEXTJ,I 

: rem 

1 56 

870 

FORI=55816TO55856STEP40 

: rem 

1 01 

880 

FORJ=18T022 

: rem 

1 26 

890 

POKEI+J,6 

: rem 

240 

900 

NEXTJ,I 

: rem 

1 51 

91 0 

TI$="000000" 

: rem 

252 

920 

POKE54277,64:POKE54278,128:POKE54273,17:POKE54272, 

37 



: rem 

168 

930 

IFPEEK(197)=55THEND2=40:H2=33 

: rem 

134 

940 

IFPEEK(197)=46THEND2=-40:H2=30 

: rem 

1 77 

950 

IFPEEK(1 97)= 4 5THEND2 = -1 :H2 = 60 

: rem 

1 29 

960 

IFPEEK(197)=50THEND2=1:H2=62 

: rem 

83 

970 

IFJK=2THENGOSUB600:GOTOl020 

: rem 

1 74 

980 

IFPEEK(JK)=18THEND1=1:Hl=62 

: rem 

75 

990 

IFPEEK(JK)=13 THENDl=-l :Hl=60 

: rem 

1 1 4 

1 000 

IFPEEK(JK)=2 3THEND1=40 : Hi=33 

: rem 

1 52 

1 01 0 

IFPEEK(JK)=14THENDl=-40:Hl=30 

: rem 

1 95 

1 020 

CI=C1+D1:C2=C2+D2 

: rem 

1 38 

1 030 

IFPEEK(CI)<>32THENLF=1:C1=C1-Dl:S1=S1-Pl 

:rem 

1 21 

1 040 

Pi=PEEK(Cl+CC) : Pi=ABS(Pi-INT(Pl/I6+.5)*16) 

: rem 

93 

1 050 

SI=S1+P1 :PRINT"{HOME}{ 2 GIU'}";TAB(9);-Si 

: rem 

127 

1 060 

IFPEEK(C2)<> 32THENLF=2:C2=C2-D2:S2=S2-P2 

:rem 

1 32 

1 070 

P2 = PEEK(C2+CC) :P2=ABS(P2-INT(P2/16+.5)*1 6) 

: rem 

101 

1 080 

S2=S2+P2:PRINT"{HOME}{ 2 GIU'}";TAB(20);-S2:rem 

175 

1 090 

POKEC1,Hi :POKEC1+CC,5 

: rem 

1 

1 1 00 

POKEC2,H2:POKEC2+CC,0 

: rem 

247 

1110 

IFLF>OTHENGOSUB510:GOTO! 1 50 

: rem 

209 

1 1 20 

POKE542 76,1 7:FORI = lT05:NEXTI:POKE54276,1 6 

: rem 

5 

1 1 30 

PRINT"{HOME}{ 2 GIU'H 14 DES}"RIGHT$(TI$, 

3) 




: rem 

1 1 6 

1 1 40 

GOTO930 

: rem 

1 55 

1 1 50 

IFLF=1THENPRINT"{HOME}{ 3 GIU'}{ 11 DES}GIOCATORE 

-2- 


VINCE":S2=S2+50 

: rem 

1 38 

1 1 60 

IFLF=1THENPRINT"{HOME}{ 11 DES}{ 24 GIU’}GIOCATORE-1 


-PERDE"; 

: rem 

20 

1 1 70 

IFLF=2THENPRINT" {HOME} { 3 GIU'H 11 DES} Gl OCATORE 

- 1 - 


VINCE":S1=Sl+50 

: rem 

1 38 

1 1 80 

IFLF=2THENPRINT"{HOME}{ 11 DES}{ 24 GIU'}GIOCATORE-2 


-PERDE"; 

: rem 

24 

1 1 90 

PRINT"{HOME}{ 2 GlU'}";TAB(9);-Si 

: rem 

89 

1 200 

PRINT"{HOME}{ 2 GlU'}";TAB(20);-S2 

: rem 

123 

1 21 0 

IFS1>HITHENHI=Sl 

: rem 

39 

1 220 

IFS2 >HITHENHI = S2 

: rem 

42 

1 230 

FOR1 = 1TO 4 0 0 :NEXTI 

: rem 

93 

1 240 

IFPEEK (1 97) 064THENPRINT" {HOME} { 3 GIU'H 

8 DES} 



{ RED}*{BLU}UN'ALTRA-PARTITA?{RED}* * *{ 2 SIN}";:GOTOl 
260 :rem 238 
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1 250 
1 260 
1 270 

1 280 

1 290 

1 300 
1 31 0 


GOTO! 240 : rem 200 

POKE198,0:FORI=lTO4 00:NEXTI : rem 199 

IFPEEK(197)=13THENPRINT"-SI": FORI=1TOI 200:NEXTI: GOTO 
670 :rem 234 

IFPEEK ( 1 97)=20THENPRINT"-CERTO":FORI = lTOl 200:NEXTI:G 
OTO670 :rem 202 

IFPEEK(1 97)= 3 9THENPRINT"-NO {RVS} ! M SFORI*!TOl 200:NEX 
TI :NF=1 ;rem 84 

IFNF=1THENPOKEl98,0:SYS198 :rem 140 

GOTO!270 :rem 200 


L’attacco dei pomodori 



Joystick 


U 


Strani pomodori giganti vogliono 
invadere la città: guidando col joy¬ 
stick n. 2 la tua navicella spaziale, 
devi assolutamente evitare che più 
di cinque di essi ti sfuggano. Se 
colpisci un pomodoro, guadagni 
10 punti; devi però riuscire a cen¬ 
trarlo più volte, fino a farlo scop¬ 


piare (in questo caso ne ottieni 
100). Attento, però, a non spreca¬ 
re colpi, perché se spari a vuoto 
perdi 10 punti. Il compito non è 
dei più semplici, ma non puoi tirarti 
indietro: se fallisci, l'intera città sa¬ 
rà ridotta in ketchup!!! 


10 REM** L'ATTACCO DEI POMODORI ** 

20 REM** PAPERSOFT ** 

30 REM** TRAD. & ADATT. DI M.ANTICOLI ** 

1000 PRINTCHR$(147) 

1010 POKE53281 ,0 :POKE53280,0 

1020 PRINTCHR$(29)TAB(9)"{ 7 GIU’}{CYN}{RVS} 
POMODORI{OFF}{ 3 GIU'}" 

1200 PRINTTAB(7)"PREMI UN TASTO PER GIOCARE" 

1210 GETJ$:IFJ$< >""THENl210 

1220 GETA$: IFA$ = ""THEN1220 

1230 V=53248:N=4:LX2=100:MX=0:Y2=100 

1240 GOSUBl940 

1250 PRINTCHR$(147):PRINTCHR$(5) 

1260 GOSUBl780 
1270 REM SPRITE 

1290 POKE2040,1 92:POKE2041,1 93 

1300 POKE2042,1 95:POKE2044, 1 96 

1310 REM LEGGE DATI SPRITE 

1320 FORI=12288TO!2350:READA:POKEI,A:NEXT 


: rem 
: rem 
: rem 
:rem 
: rem 

L'ATTACCO 
:rem 
: rem 
: rem 
: rem 
: rem 
: rem 
:rem 
:rem 
: rem 
: rem 
: rem 
: rem 
:rem 
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1 54 
1 62 
101 
60 
23 
DEI 
76 
1 27 
250 
1 73 
21 
21 
145 
25 
1 33 
1 30 
1 33 
6 
5 





1 330 

FORI=l2352T012414:READA:POKEI,A:NEXT 

: rem 

255 

1 340 

FORI = 12416TO1 247 8 :READA:POKEI,A:NEXT 

:rem 

1 1 

1 350 

FORI = l2480TO1 2542 :READA:POKEI,A:NEXT 

:rem 

5 

1360 

FORI=l2544T012606:READA:POKEI,A:NEXT 

:rem 

8 

1370 

FORI=12736T012798:READA:POKEI,A:NEXT 

:rem 

24 

1 380 

REM COLORI SPRITE 

: rem 

79 

1 390 

POKEV+41 ,1 :POKEV+43,7 :POKEV+3 9,5 

:rem 

1 70 

1 400 

REM ESPANDE SPRITE 

: rem 

1 28 

1 41 0 

POKEV+23, 3 :POKEV+29,11 

: rem 

29 

1430 

POKEV+21,7 

: rem 

62 

1 440 

REM LIMITI PER IL JOYSTICK 

:rem 

97 

1450 

POKE49152,0:POKE49153,0 

: rem 

37 

1460 

POKE49156,65:POKE49157,1 

: rem 

1 06 

1 470 

POKE49160,47:POKE49161 ,0 

: rem 

96 

1 480 

POKE49164,23 2:POKE491 6 5,0 

: rem 

1 49 

1490 

POKE49168,0 

: rem 

1 01 

1 500 

SYS49183 

: rem 

206 

1 51 0 

REM ROUTINE PRINCIPALE MOVIMENTO 

: rem 

1 1 8 

1520 

REM CANCELLA POMODORO 

:rem 

78 

1 530 

X0= 34 5 :POKEV+16,PEEK(V+16)OR3 

: rem 

217 

1 540 

POKE49169,LX2:POKE49170,MX 

: rem 

71 

1 550 

POKE49173,Y2:POKE49174,0 

: rem 

1 35 

1 560 

POKEV,90:POKEV+2,90 

: rem 

1 51 

1 570 

POKE2041,193:POKEV+40,2 

: rem 

56 

1 580 

POKEV+21,PEEK(V+21)OR3 

: rem 

59 

1 590 

REM CICLO MOVIMENTO 

:rem 

21 9 

1 600 

XO=X0-N:Y0=140-40*SIN(X0/N) 

:rem 

31 

1610 

PRINTCHRS(145)"POMODORI SCAPPATI :";T;"{ 

5 SPAZI}PUNT 


I:";YS"{SIN} " 

:rem 

29 

1620 

GOSUB2690 

: rem 

26 

1 630 

Yl=Y0+14 

:rem 

1 70 

1640 

HX=INT(XO/256):LX=X0-256*HX 

:rem 

1 1 1 

1650 

IFHX=0THENPOKEV+l6,PEEK(V+l6)AND252 

: rem 

1 64 

1660 

POKEV,LX:POKEV+1,Y0 

:rem 

242 

1670 

POKEV+2,LX:POKEV+3,Yl 

: rem 

83 

1680 

GOSUB2690 

2 rem 

32 

1 690 

IFC>=5THENC = 0:YS=YS+100 :N=N+2:GOTOl530 

2 rem 

1 04 

1 700 

REM 'FUGA' POMODORO 

2 rem 

1 40 

1710 

IFX0<10THENT=T+1:C=0:GOTOl530 

2 rem 

19 

1 720 

IFT>5THENl740 

2 rem 

27 

1730 

GOTOl600 

2 rem 

203 

1 740 

PRINTCHRS(147):GOSUB2880 

2 rem 

21 1 

1 750 

SYS49208 

2 rem 

211 

1 760 

RUNl230 

2 rem 

1 37 

1770 

END 

2 rem 

166 

1 780 

REM DISEGNO SCHERMO 

2 rem 

206 

1790 

POKE53280,0 

2 rem 

94 

1 800 

POKE53281 ,6 

2 rem 

93 

1810 

REM LEGGE DATI PER LO SCHERMO 

2 rem 

1 99 

1 820 

FORI = 1 4 64TO1663 :READA:POKEI,A 

2 rem 

48 

1 830 

POKE54272+I,4:NEXT 

2 rem 

76 
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1 840 FORI=l664T01743:POKEI,160 

1 850 POKE54 272 + I,4 :NEXT 

1860 FORI=l744TO2023:POKEI,160 

1870 POKE54272+I,14:NEXT 

1880 REM STELLE 

1890 FORI=lTO40 

1900 P=1 024 + INT(RND(1 ) *440) 

1910 POKEP,46:POKEP+54272,1 
1920 NEXT 
1 930 RETURN 

1940 REM ROUTINE L.M. LETTURA JOYSTICK 
1 950 DATAI 20,173,20,3,141,29,1 92,173,21 
1 960 DATA3,1 41 ,30,1 92,169,71 ,1 41 , 20, 3 
1970 DATAI 69,1 92,1 41 ,21 ,3,88,96,1 20,1 73 

1 980 DATA29,192,141 ,20,3,173,30,1 92,141 
1990 DATA21,3,88,96,173,27,192,205,16 
2000 DATAI 92,240,3,76,65,193,1 69,255 
2010 DATAI 41 ,27,1 92,162,0,160,0,1 85,2 
2020 DATA220, 141,28,1 92,169,224,1 53,2 
2030 DATA220, 1 85,0,220,72,1 73,28,1 92 
2040 DATAI 53,2,220, 189,8,1 92,221,21,192 
2050 DATAI 89,9,192,2 53,22,1 92,1 44,1 8 
2060 DATAI 89,8,1 92,1 57,21,1 92,1 89,9,1 92 
2070 DATAI 57,22,192,1 04,74,72,76,1 62 
2080 DATAI 92,1 04,74,72,1 76,1 3,222,21 
2090 DATAI 92,18 9,21 ,1 92,201 ,255,208,3 
2100 DATA222,22,1 92,1 89,21 ,1 92,221 ,1 2 
2110 DATAI 92,1 89,22,1 92,253,13,192,1 44 
2120 DATAI 8,1 89,1 2,1 92,1 57,21 , 1 92,1 89 
2130 DATAI 3,1 92,1 57,22,1 92,1 04,74,72,76 
2140 DATA207,192,104,74,72,176,8,254,21 
2150 DATAI 92,2 08,3,254,22,1 92,1 89,0,1 92 
2160 DATA221 ,1 7,1 92,1 89,1 ,1 92,253,1 8 

2179 DATAI 92,144,1 8,1 89,0, 1 92,1 57,1 7 

2180 DATAI 92,1 89,1 ,1 92,1 57,1 8,1 92,1 04 
2190 DATA74,72,76,1,193,104,74,72,176 

2 200 DATAI 3,2 22,1 7,192,1 89,1 7,192,201 
2210 DATA255,208,3,222,1 8,1 92,1 89,1 7 

2 22 0 DATAI 92,221 ,4,1 92,1 89,1 8,1 92,253,5 


:rem 242 
:rem 78 
: r em 2 35 
:rem 129 
: rem 126 
:rem 119 
:rem 173 
: r em 37 
:rem 11 
:rem 173 
:rem 94 
: rem 167 
:rem 69 
: r em 192 
:rem 174 
:rem 96 
:rem 38 
:rem 56 
:rem 69 
: rem 19 
:rem 169 
:rem 40 
:rem 203 
:rem 35 
:rem 24 
:rem 82 
:rem 64 
:rem 131 
:rem 91 
:rem 179 
:rem 179 
: rem 180 
:rem 34 
:rem 50 
:rem 91 
:rem 92 
:rem 73 
:rem 33 
:rem 183 


2230 

DATAI 9 2,1 44,1 8,1 89,4,1 92,1 57,1 7 

: rem 

42 

2240 

DATAI 92,1 89,5,1 92,1 57,1 8,1 92,1 04 

: rem 

92 

2230 

DATA74,72,76,46,1 93,1 04,74,72,1 76 

: rem 

1 46 

2260 

DATA8,254,1 7,1 92,208,3,254,1 8,192 

: rem 

1 36 

2270 

DATAI 04,74,1 76,5,169,1 ,1 53,25,1 92 

: rem 

1 33 

2280 

DATA200,232,232,224,4,240,3,76,91 

: rem 

114 

2290 

DATAI 92,2 38,27,1 92,1 08,29,1 92 

: rem 

205 

2300 

DATA35994 

:rem 

237 

231 0 

FORI = 491 8 3 TO 494 78 

: rem 

239 

2320 

READX:POKEI,X :CC=CC+X 

: rem 

1 1 9 

2330 

NEXT 

: rem 

7 
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2340 

READX: IFXOCCTHENPRINT" ERRORE NELLE 

DATA”: END 




: rem 

200 

2350 

RETURN 

:rera 

1 70 

2360 

REM SUBROUTINE SPARO 

: rem 

68 

2370 

X4=X2+12 

: rem 

1 73 

2380 

POKEV+21 ,PEEK(V+21)ORI 6 

: rem 

1 1 0 

2390 

YS=YS-10 

: rem 

241 

2400 

IFPEEK(2042)=194THENDX=-30 

: rem 

6 

2410 

L = 0 

: rem 

1 28 

2420 

IFPEEK(2042)=195THENDX=30 

: rem 

220 

2430 

X4=X4+DX 

: rem 

229 

2440 

L=L+1:IFL>4THEN2540 

: rem 

1 24 

2450 

H4=1NT(X4/256):L4=X4-256*H4 

: rem 

1 1 

2460 

IFH4=1THENPOKEV+16,PEEK(V+l6)ORI 6 

: rem 

29 

2470 

IFH4=OTHENPOKEV+16,PEEK(V+l6)AND239 

: rem 

1 34 

2480 

POKEV+8, L4 

: rem 

98 

2490 

REM LIMITI SCHERMO 

: rem 

1 40 

2500 

IFX4<OORX4> 320THENPOKEV+21 ,PEEK(V+21)AND23 9 :G0T0254 0 



: rem 

1 97 

251 0 

PC=PEEK(V+30) 

: rem 

242 

2520 

IFPC=19THENP0KEV+21,PEEK(V+21)AND239 

:GOSUB2550 




: rem 

81 

2530 

GOTO2430 

:rem 

204 

2540 

RETURN 

:rem 

1 71 

2550 

REM ROUTINE COLLISISIONE 

: rem 

99 

2560 

C=C+0.5 

: rem 

78 

2570 

REM CAMBIO COLORE POMODORO 

: rem 

1 44 

2580 

ONC+1GOTO2620,2630,2640,2650,2660 

:rem 

240 

2590 

REM ESPLOSIONE POMODORO 

:rem 

36 

2600 

POKE2041 ,1 99 :FORI = lT02000:NEXT 

: rem 

67 

261 0 

POKEV+21,PEEK(V+21)AND252:GOTO2670 

: rem 

16 

2620 

POKEV+40,8 :GOTO2670 

: rem 

1 32 

2630 

POKEV+40,10 : GOTO2670 

: rem 

1 74 

2640 

POKEV+40,9 : GOTO26 7 0 

: rem 

1 35 

2650 

POKEV+40,11 : GOTO2670 

: rem 

1 77 

2660 

POKEV+40,0 :GOTO2670 

: rem 

1 28 

2670 

YS=YS+20 

: rem 

241 

2680 

RETURN 

: rem 

1 76 

2690 

REM CONTROLLO NAVICELLA 

: rem 

0 

271 0 

XL=X2 

: rem 

53 

2720 

IFPEEK(56320)AND16<>16THENGOSUB2360 

: rem 

101 

2730 

X2 = PEEK(49169)+256* PEEK(49170) 

:rem 

1 31 

2740 

Y2 = PEEK(491 7 3)+ 256* PEEK(491 74) 

:rem 

1 32 

2760 

IFX2>XLTHENPOKE2042,195 

: rem 

1 87 

2790 

MX=INT(X2/256):LX2=X2-256*MX 

:rem 

1 82 

2800 

IFMX=1THENPOKEV+16,PEEK(V+l6)OR20 

: rem 

63 

281 0 

IFMX=0THENPOKEV+l6,PEEK(V+l6)AND235 

:rem 

1 69 

2820 

POKEV+4,LX2:POKEV+5,Y2 

: rem 

1 36 

2830 

POKEV+8,LX2:POKEV+9,Y2 

: rem 

1 45 

2850 

FR=PEEK(56320)AND16 

: rem 

84 

2860 

IFFROl 6THENGOSUB2360 

: rem 

82 
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2870 

RETURN 


: rem 

177 

2880 

REM FINE GIOCO 


: rem 

73 

2890 

POKE53281,0 


: rem 

97 

2900 

POKEV+21,0 


: rem 

58 

2910 

PRINTCHR$(28) :PRINTCHR$(1 47) 


: rem 

202 

2920 

PRINT" { 3 GIU'H 13 SPAZI }FINE DEL 

GIOCO" 

:rem 

57 

2980 

PRINTCHR$(5) 


:rem 

231 

2990 

PRINT:PRINT:PRINT:PRINTTAB(8)"{ 2 

GIU' }IL 

TUO PUNTEG 


GIO E"';YS 


:rem 

1 4 

3000 

PRINTCHR$(28) 


:rem 

1 2 

301 0 

PRINT:PRINT:PRINT"{ 10 SPAZI}PREMI 

{RVS}G{OFF} PER G 


IOCARE" 


: rem 

1 08 

301 5 

PRINT:PRINT"{ 16 SPAZI}{RVS}S{OFF} 

PER SMETTERE" 

: PRI 


NT:POKEl98,0 


: rem 

214 

3020 

GETB$:IFB$="G"THENRETURN 


: rem 

1 7 

3030 

IFB$ = "S"THENEND 


: rem 

1 49 

3040 

GOTO3020 


:rem 

1 97 

3050 

REM DATI SCHERMO 


: rem 

223 

3060 

DATA32,32,32,233,223,32,32,32,32 


z rem 

53 

3070 

DATA32,32,32,32,32,32,32,32,32,32 


: rem 

98 

3080 

DATA32,32,32,32,32,32,32,32,32,32 


: rem 

99 

3090 

DATA32,32,32,32,32,32,32,32,32,32 


: rem 

1 00 

31 00 

DATA32,32,32,233,160,160,1 60,223 


: rem 

53 

31 10 

DATA3.2,32,32,32,32,32,32,32,32,32 


zrem 

93 

3120 

DATA32,32,32,32,32,32,32,32,32,32 


z rem 

94 

3130 

DATA32,32,32,233,223,32,32,32,32 


zrem 

51 

3140 

DATA32,32,32,32,160,160,160, 160 


z rem 

6 

3150 

DATAI 60, 160,160,223,32,32,32,32,32 


z rem 

1 52 

3160 

DATA32,32,32,233,223,32,32,32,32 


zrem 

54 

31 70 

DATA32,32,32,32,32,32,32,233,160 

• 

z rem 

55 

3180 

DATAI 60,160,160,223,32,32,32,32 


z rem 

1 0 

3190 

DATA233,!60,160,160,160,160,160 


zrem 

1 7 

3200 

DATAI 60,160,223,32,32,32,32,32,32 


z rem 

98 

3210 

DATA233,!60,160,32,32,32,32,32,32 


zrem 

1 00 

3220 

DATA32,32,233,160,160,160,160,160 


z rem 

1 06 

3230 

DATAI 60,1 60,160,223,32,32,233,160 


zrem 

1 07 

3240 

DATAI 60, 1 60,160, 160,160,1 60,160 


z rem 

1 2 

3250 

DATAI 60, 160,223,32,32,32,233,160 


zrem 

59 

3260 

DATAI 60, 160,160,223,32,32,3 2,32 


zrem 

9 

3270 

DATA233,160,160,160,160,160,160 


zrem 

1 6 

3280 

DATAI 60, 1 60,160,160,160,160,160 


zrem 

16 

3290 

DATAI 60,1 60,160 


zrem 

5 

3300 

REM--SPRITE 0— 


zrem 

1 01 

3310 

DATA0,0,0,0,0*0,0,0,0,0 


zrem 

77 

3320 

DATAI 92, 0,0, 192, 0,0, 192, 0,0, 224 


zrem 

250 

3330 

DATA0,0,96,0,60,1 1 5,1 92,39,54,32 


zrem 

65 

3340 

DATAI,252,0,3,1 59,0,6,3,1 28,4,0 


zrem 

0 

3350 

DATAI 28,4,0,128 


zrem 

3 

3360 

DATA0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0 


zrem 

30 

3370 

DATA0,0,0 


z rem 

207 

3380 

REM—SPRITE 1 — 


zrem 

no 
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3390 

DATAO,0,0,15,131,192,31,199,224 

: rem 

1 5 

3400 

DATA63,! 99,240,63,239,248,1 27,255 

: rem 

1 46 

3410 

DATA252,127,255,252,255,255,254 

: rem 

37 

3420 

DATA255,255,254,255,255,254,255 

: rem 

45 

3430 

DATA255,254,255,255,254,255,255 

: rem 

46 

3440 

DATA252,! 27,2 55,252,1 27,2 55,248 

: rem 

41 

3450 

DATA63,255,248,63,255,240,31 ,2 55 

: rem 

88 

3460 

DATA224,15,255,192,7,255,0,1,252,0 

: rem 

1 66 

3470 

REM—SPRITE 2— 

:rem 

1 1 1 

3480 

DATAO,0,0,0,0*0,0,0,0,0,0,0,0,0 

: rem 

1 97 

3490 

DATA7,0,0,63,0,0,237,0,7,152,0,28 

: rem 

99 

3500 

DATA48,0,125,224,7,255,252,3,255 

: rem 

73 

3510 

DATA252,0,125,224,0,28,48,0 

: rem 

70 

3520 

DATA7,152,0,0,237,0,0,63,0,0,7 

: rem 

1 99 

3530 

DATAO,0,0,0,0,0,0,0,0 

: rem 

245 

3540 

REM—SPRITE 2B— 

: rem 

1 75 

3550 

DATAO,0,0,0,0,0*0,0,0 

: rem 

247 

3560 

DATA224,0,0,2 52,0,0, 1 83,0,0,25,224 

: rem 

1 40 

3570 

DATAO,12,56,0,7,190,0,63,255,224 

: rem 

65 

3580 

DATA63,255,1 92,7,190,0,12,56,0,25 

: rem 

1 25 

3590 

DATA224,0, 1 83,0,0,252,0,0,224 

: rem 

1 60 

3600 

DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0 

: rem 

1 91 

361 0 

REM--SPRITE 4— 

:rem 

1 09 

3620 

DATAO,0,0,0,0 * 0,0,0,0 

: rem 

245 

3630 

DATAO,0,0,0,0,0,0,0,0 

: rem 

246 

3640 

DATAO,0,0,0,0,0,0,0,0 

: rem 

247 

3650 

DATAI 95,12,48,195,12,48 

: rem 

1 60 

3660 

DATAO,0,0,0,0,0,0 

: rem 

65 

3670 

DATAO,0,0,0,0,0,0,0 

: rem 

1 58 

3680 

DATAO,0,0,0,0,0,0,0 

: rem 

1 59 

3690 

DATAO,0,0,0,0,0,0 

: rem 

68 

3700 

REM--SPRITE 1 B — 

:rem 

1 72 

371 0 

DATAI,16,8,64,0*16,32,0 

: rem 

1 27 

3720 

DATAO, 16,1 6,64,8,0, 1 28,0,65 

: rem 

76 

3730 

DATAO,66,16,4,1,16,16,4,128 

: rem 

76 

3740 

DATA64,0,19,0,73,56,0,0 

: rem 

1 33 

3750 

DATAI 08,1 05,4,56,0, 1 2 8,16,0 

: rem 

77 

3760 

DATAO,130,16,1,17,1,64,0,128 

: rem 

1 1 6 

3770 

DATAO,4,0,8,0,32,1 6,82,16,32,1 6,0 

: rem 

1 00 
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Mostri saiattici 


«o 

u 


Ecco un gioco per i virtuosi della 
tastiera. Utilizzando i tasti W, A, D, 
X per andare rispettivamente in al¬ 
to, a sinistra, a destra e in basso 
dovete attraversare con la vostra 
astronave il quadro spaziale dal¬ 
l'alto verso il basso. La manovra 
sarebbe semplice se non ci fossero 
a complicarla dei velocissimi mo¬ 
stri che fanno il possibile per cattu¬ 
rarvi ed annientarvi. Ogni volta che 


la traversata riuscirà vi troverete di 
fronte ad un nuovo quadro. 

Ma attenzione: si tratta di una lotta 
contro il tempo, in quanto per de¬ 
cidere ogni mossa avete a disposi¬ 
zione pochissimi protosecondi, 
passati i quali ogni possibilità di 
salvare la pelle è irrimediabilmente 
persa! Il gioco termina quando tut¬ 
te e cinque le astronavi sono di¬ 
strutte. 


10 REM MOSTRI GALATTICI Jrera 181 

20 POKE53281,1:POKE53280,14 :rem 237 

30 PRINT"{CLR}{GIU 1 }{ H SPAZI}{RED}{RVS} MOSTRI GALATTIC 
I {OFF}" : rem 8 

40 PRINT" {BLU} { 4 GIU'H 2 SPAZI}PER MUOVERE L'ASTRONAVE 


50 

60 

70 

80 


1 60 


220 


USA I TASTI" 

» 

: rem 

127 

PRINT"{GIU'}{ 14 SPAZI}->W 

: SOPRA" 

: rem 

200 

PRINT"{GIU'}{ 14 SPAZI} -> A 

:SINISTRA" 

: rem 

155 

PRINT"{GIU'}{ 14 SPAZI}->D 

: DESTRA" 

: rem 

245 

PRINT"{GIU'}{ 14 SPAZI}->X 

: SOTTO" 

: rem 

224 

PRINT" { 3 GIU'H 5 SPAZI} PREMI UN TASTO 

PER CONTINUARE 

II 


: rem 

247 

GETA$:IFA$=""THEN100 


: rem 

69 

PRINT"{CLR}" 


: rem 

246 

D$="{ 20 GIU'}" 


: rem 

208 

S=542 72 


: rem 

40 

FORX=STOS+24:PÓKEX,0 :NEXT 


: rem 

129 

POKES + 2 4,15 


: rem 

59 

POKES,0 


: rem 

1 1 7 

POKES+1,30 


: rem 

5 

POKES+5,15:POKES+6,250 


: rem 

237 

DIMX (1 2) 


: rem 

1 28 

DIMY (12) 


: rem 

1 21 

GOTOI110 


: rem 

143 

REM SCHERMO 


: rem 

1 37 

PRINT"{CLR}" 


: rem 

249 

FORT=1TO10 


: rem 

67 

PRINTSPC ( 1 3) " [< 1 >] { 11 Q} 

tl 

: rem 

1 27 

NEXTT 


: rem 

43 

PRINTSPC (13) " [< 11 +>]" 


: rem 

39 
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280 

PRINT"{HOME}{ 2 GIU'}{ 19 DES}{GRN}X{ 10 GIU'}" 

:rem 

103 

290 

PRINTSPC(13)"PUNTEGGIO:" 

SC : rem 

137 

300 

Xl =6 

: rem 

143 

31 0 

Yl =2 

: rem 

141 

320 

FORT=1TOl1 

: rem 

67 

330 

X (T) =T 

: rem 

36 

340 

Y (T) =1 1 

: rem 

52 

350 

NEXTT 

: rem 

43 

360 

KA= KA+.1 

: rem 

1 20 

370 

RETURN 

: rem 

122 

380 

REM MOSSA DEL GIOCATORE 

: rem 

116 

390 

KY=PEEK(197) 

: rem 

148 

400 

POKES+4,33 

: rem 

7 

41 0 

FORM=1T04 0 :NEXTM 

: rem 

4 

420 

POKES+4,0 

:rem 

21 1 

430 

PRINT"{HOME}";TAB(XI+1 3) 

;LEFT$(D$, Yl );"[<1>]Q" 

: rem 

192 

440 

IFKY=18THENX1=Xl+1 

: rem 

75 

450 

IFKY=9THENY1 =Yl-l 

: rem 

32 

460 

IFKY=23THENY1=Y1+1 

:rem 

75 

470 

IFKY=10THENX1=Xl-l 

:rem 

72 

480 

IFXl<1THENX1=1 

: rem 

71 

490 

IF Y1 < 1 THE N Y1 = 1 

: rem 

74 

500 

IFXl>11THENX1=11 

:rem 

164 

51 0 

PRINT"{HOME}";TAB(XI+1 3) 

;LEFT$(D$,Yl);"{GRN}X" 

: rem 

99 

520 

PRINT"{HOME}";TAB(Xl+13) 

;LEFT$(D$,Yl);"{GRN}X" 

: rem 

100 

530 

FORT=1TO11 

: rem 

70 

540 

IFXIOX (T) THEN580 

:rem 

244 

550 

IFYIOY(T) THEN580 

: rem 

247 

560 

GOSUBl020 

: rem 

222 

570 

CA=-1 

: rem 

187 

580 

NEXTT 

:rem 

48 

590 

RETURN 

:rem 

126 

600 

REM MOSSA DEL MOSTRO 

: rem 

182 

61 0 

FORT=lTOl1 

: rem 

69 

620 

PRINT"{HOME}";TAB(X (T)+13) ;LEFT$(D$ , Y (T) ) ; " [< 1 >] Q 

: rem 

11 

169 

630 

IFRND(0)CKATHEN900 

:rem 

29 

640 

A=INT(RND(0)*4) 

: rem 

23 

650 

IFA=0THEN6 90 

: rem 

166 

660 

IFA=1THEN710 

: rem 

161 

670 

IFA=2THEN730 

: rem 

165 

680 

GOTO750 

: rem 

115 

690 

X (T) =X(T) +1 

: rem 

50 

700 

GOTO760 

:rem 

109 

71 0 

X (T) =X(T) -1 

: rem 

45 

720 

GOTO760 

:rem 

111 

730 

Y (T) =Y (T) - 1 

: rem 

49 
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740 

GOTO760 


: rem 

113 

750 

Y(T)=Y(T)-1 


: rem 

51 

760 

IFX(T)<1THEN81 0 


: rem 

94 

770 

IFX(T)>11THEN830 


: rem 

148 

780 

IFY(T)<1THEN850 


: rem 

1 01 

790 

IFY(T)>11THEN870 


: rem 

1 55 

800 

GOTO880 


2 rem 

1 1 3 

81 0 

X (T) =X (T) +1 


2 rem 

44 

820 

GOTO960 


2 rem 

1 1 4 

830 

X(T)=X(T)-1 


2 rem 

48 

840 

GOTO960 


2 rem 

1 1 6 

850 

Y (T) =Y(T) +1 


2 rem 

50 

860 

GOTO960 


2 rem 

118 

870 

Y(T)=Y(T)-1 


2 rem 

54 

880 

PRINT"{HOME}";TAB(X(T)+13);LEFT$(D$, 

Y(T) ) 

;"{GRN} 

[<+>] 


II 


2 rem 

35 

890 

GOTO960 


2 rem 

121 

900 

X2=Xl-X(T) 


2 rem 

19 

91 0 

Y2=Yl-Y(T) 


2 rem 

23 

920 

IFRND{0)<.8THEN950 


2 rem 

254 

930 

X (T) =X(T)+SGN(X2) 


2 rem 

193 

940 

GOTO960 


2 rem 

117 

950 

Y (T) =Y(T)+SGN(Y2) 


2 rem 

1 98 

960 

PRINT”{HOME}";TAB(X(T)+13);LEFT$(D$, 

Y(T) ) 

;"[<!>] [<+>] 


II 


2 rem 

133 

970 

NEXTT 


2 rem 

51 

980 

FORU=1TOl1 


2 rem 

80 

990 

PRINT"{HOME}TAB(X (U)+13) ;LEFT$(D$ f 

Y(U) ) 

;"[<!>][<+>] 


II 


2 rem 

138 

1 000 

NEXTU 


2 rem 

85 

1 01 0 

RETURN 


2 rem 

162 

1 020 

POKES+4,33 


2 rem 

54 

1 030 

FORL=lTOl0 


2 rem 

105 

1 040 

FORM=10TO30+L*2 


2 rem 

1 1 2 

1 050 

POKES+1,M 


2 rem 

29 

1 060 

NEXTM 


2 rem 

83 

1 070 

NEXTL 


2 rem 

83 

1 080 

POKES + 1,20 


2 rem 

53 

1 090 

POKES + 4,0 


2 rem 

7 

1 1 00 

RETURN 


2 rem 

162 

ino 

REM PROGRAMMA CENTRALE 


2 rem 

1 55 

1 1 20 

KA=KA+.1 


2 rem 

1 63 

1 1 30 

GOSUB230:REM SCHERMO 


2 rem 

9 

1 1 40 

GOSUB390:REM MOSSA DEL GIOCATORE 


2 rem 

245 

1 1 50 

BR=BR+1 


2 rem 

136 

1 1 60 

IFNOTCATHENl 280 


2 rem 

1 98 

1 1 70 

K=K+1:CA=0 


2 rem 

35 

1 1 80 

SC=SC+AT-BR-5*K 


2 rem 

139 

1 1 90 

IFK< 5THEN1 1 30 


2 rem 

1 0 

1 200 

PRINT"{CLR}{GIU' } TERMINE DEL GIOCO 

II 

• 

2 rem 

1 92 

1 21 0 

PRINT"{GIU ' } IL TUO PUNTEGGIO E' DI 

• « • 

• t 

2 rem 

83 
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1 220 

PRINTSC 

: rem 

232 

1 230 

PRINT"{GIU'} VUOI CONTINUARE (S/N)?{GIU'}" 

:POKEl98,0 



: rem 

1 87 

1 240 

GETA$:IFA$ = ""THENl 240 

: rem 

1 77 

1 250 

IFA$ = "S"THENRUN 

: rem 

1 80 

1 260 

IFA$ <>"N"THENl240 

: rem 

1 91 

1 270 

END 

: rem 

1 61 

1 280 

AT=0:IFYl=11THENBR=0:AT=40:GOTOl180 

:rem 

1 56 

1 290 

GOSUB610 

: rem 

227 

1 300 

GOTOl140 

: rem 

1 95 


Udite Udite! 


La rappresentazione si è appena 
conclusa, e la sala del grande tea¬ 
tro si è lentamente svuotata. Poche 
luci illuminano oramai la platea e i 
palchi e puoi nel pesante silenzio 
che si è creato sentire distintamen¬ 
te, troppo distintamente, il battito 


del tuo cuore. Sei rimasto solo e 
dovrai vedertela con... 

Il fantasma del teatro! 

Il grande Adventure-Game di Pa- 
persoft C64. Direttamente su que¬ 
ste pagine a partire dalla prossima 
settimana! 
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Lettura veloce 


Questo semplice prosrammd vi 
permetterà di esercitarvi per au¬ 
mentare la vostra velocità di lettu¬ 
ra. Esso mostra, risa per risa, un 
testo sullo schermo, rendendone 
però visibile in osni istante solo la 
parte che deve venire osservata 
dai vostri occhi. In tal modo il mo¬ 
vimento di questi ultimi viene sui- 
dato, consentendovi di imparare a 
concentrarvi meslio su ciò che tes¬ 
sete senza disperdere la vostra at¬ 
tenzione. La lunshezza della parte 
di testo visualizzata può venir au¬ 
mentata o diminuita a piacimento 
asendo rispettivamente sui tasti > 


e <; per modificare la velocità di 
scorrimento si usano invece i tasti 
A (accelera) e R (rallenta). Potrete 
così aumentare pian piano la vo¬ 
stra rapidità di lettura fino a ras- 
Siunsere un livello soddisfacente. 
Il tasto deve venir memorizzato 
nelle istruzioni DATA (linee da 
1000 ir* poi) facendo attenzione 
che osni strinsa non superi i 40 ca¬ 
ratteri. Potete sostituire al messas- 
Sio-esempio da noi inserito un te¬ 
sto di qualsiasi lunshezza, con 
l'unico accorsi mento di lasciare 
come ultima istruzione DA TA quel¬ 
la contenente la strinsa "END". 


1 0 

POKE 53280,11 

: POKE 53281,11 

: rem 

26 

20 

PRINT"{WHT} " 


: rem 

56 

30 

CL=55776 


: rem 

61 

40 

DD=50:NC=5 


: rem 

203 

50 

PRINT"{CLR}" 


: rem 

201 

60 

FORI = l T04:PRINT:NEXTI 

: rem 

1 00 

70 

PRINTTAB (12)" 

[RVS } LETTURA VELOCE " 

: rem 

180 

80 

PRINT:PRINT:PRINT 

: rem 

1 31 

90 

PRINT:PRINT"{ 

3 SPAZI}A -ACCELERA LA 

VELOCITA' DI 

LETT 


URA" 


: rem 

88 

1 00 

PRINT:PRINT" i 

[ 3 SPAZI}R -RALLENTA LA 

VELOCITA' DI 

LET 


TURA " 


: rem 

1 80 

1 1 0 

PRINT : PRINT" j 

[ 3 SPAZI} > -MOSTRA PIU' 

C \TTERI PER LI 


NEA" 


: rem 

1 1 1 

1 20 

PRINT : PRINT” { 3 SPAZI }< -MOSTRA MENO 

CARATTERI PER LI 


NEA" 


: rem 

136 

1 30 

PRINT:PRINT” { 3 SPAZI}Q -USCITA DAL 

PROGRAMMA" 





: rem 

234 

1 40 

PRINT:PRINT:PRINT 

: rem 

176 

1 50 

PRINT” { 3 SPAZ I } PREMI LA BARRA PER INIZ IARE” : PRINT 




: rem 

226 

1 60 

S=PEEK (1 97) : IFS0 60ANDS062THEN1 60 

: rem 

8 

1 70 

IFS=62THEN60000 

: rem 

68 
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1 80 

POKE788,52 

:rem 

2 

1 90 

PRINT"[<4>]" 

: rem 

2 

200 

READA$ 

: rem 

19 

21 0 

IFA$ = "END"THENRUN 

: rem 

3 

220 

PRINT"{CLR}{ 12 GIU'}"A$ 

: rem 

41 

230 

FORL=0TO39 

: rem 

68 

240 

POKECL+L,1 

: rem 

40 

2 50 

IFL-NC>=0THENPOKECL+L-NC,11 

:rem 

139 

260 

FORD=OTODD:NEXTD 

: rem 

24 

270 

NEXTL 

: rem 

36 

280 

S=PEEK(197) 

: rem 

65 

290 

IFS=10THENDD=DD-10 

: rem 

37 

300 

IFS=17THENDD=DD+10 

: rem 

34 

31 0 

IFS=44THENNC=NC+2:IFNC>11THENNC=NC-2 

:rem 

237 

320 

IFS = 4 7THENNC=NC-2:IFNC< 3THENNC=NC+2 

: rem 

1 92 

330 

IFS=62THEN60000 

: rem 

66 

340 

GOTO200 

: rem 

98 

999 

REM *** QUESTA LINEE DATA SONO SOLO UN 

ESEMPIO*** 




:rem 

22 

1 000 

DATA"QUESTO E' UN ESEMPIO PER PROVARE 

IL" :rem 

188 

1 01 0 

DATA"PROGRAMMA DI LETTURA VELOCE." 

: rem 

96 

1 020 

DATA"QUESTE LINEE POTRANNO ESSERE SOSTITUITE" 




:rem 

186 

1030 

DATA"CON QUELLE CHE DESIDERATE.{ 2 SPAZI}IL COMPUTER 


11 

: rem 

166 

1 040 

DATA"MOSTRERA' IL TESTO UNA LINEA ALLA 

VOLTA” 




:rem 

200 

1 050 

DATA"DA SINISTRA VERSO DESTRA, OBBLIGANDOVI" 




:rem 

4 

1 060 

DATA"AD UTILIZZARE I VOSTRI OCCHI IN" 

: rem 

234 


1070 DATA"MANIERA CORRETTA.{ 2 SPAZljDOPO AVERE FATTO" 

: rem 216 

1080 DATA"UN POCO DI PRATICA, POTRETE RADDOPPIARE" 

: rem 6 

1090 DATA"0 TRIPLICARE LA VELOCITA' DI SCORRIMENTO" 

:rem 83 

1100 DATA"UTILIZZANDO IL TASTO A OPPURE RALLENTARE" 

:rem 163 

1110 DATA"LO SCORRIMENTO TRAMITE IL TASTO R." :rem 199 
1120 DATA"SE DESIDERATE VEDERE PIU' CARATTERI" : rem 3 
1130 DATA"CONTEMPORANEAMENTE USATE IL TASTO >." : rem 118 
1140 DATA"IL TASTO < DEVE INVECE ESSERE USATO" : rem 177 
1150 DATA"PER VEDERE MENO CARATTERI SULLA LINEA." 

:rem 173 

1160 DATA"TRAMITE LA PRESSIONE DEL TASTO Q" :rem 50 

1170 DATA"USCIRETE DAL PROGRAMMA. QUESTO PROGRAMMA" 

:rem 183 

1180 DATA"UTILIZZA UNA DELLE STESSE TECNICHE" : rem 8 
1190 DATA"USATE NEI CORSI REGOLARI DI LETTURA" : rem 10 
1 200 DATA"VELOCE. CON UN POCO DI APPLICAZIONE" : rem 205 
1210 DATA"POTRETE ANCHE VOI GODERE DEI BENEFICIrem 79 
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1 220 

DATA"DI UNA LETTURA SPEDITA E SICURA CHE" 

: rem 

1 55 

1 230 

DATA"MIGLIORERA' I VOSTRI RISULTATI NELLA" 

: rem 

147 

1 240 

DATA"SCUOLA E NEL LAVORO." 

: rem 

1 7 

1 250 

DATA"END" 

: rem 

253 

60000 

POKEl98,0:POKE788,49: 

: rem 

6 

6001 0 

PRINT"{CLR}{WHT}":END 

: rem 

113 


Velocixxatore di sprites demo 

' • ' BlI MnnmMn— ■■■WIMBW IIIW.WHM '' 111 » ■■■■ «Il■■<■■■«■ — >111^H—H | |— | IBI | 
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-a- 

«o 
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Nello scorso numero della tua rivi¬ 
sta è stato pubblicato il program¬ 
ma VELOCIZZATORE DI SPRITES. 
In questo numero ti forniremo un 
brevissimo programmino che per¬ 
mette di verificare l’efficacia e la 
semplicità di utilizzo di questa uti¬ 
lity. Carica quindi in memoria VE¬ 
LOCI ZZATO RE DI SPRITES (se non 
lo possiedi lo troverai sul n. 40 di 
Papersoft); attivalo con RUN e digi¬ 
ta o carica da supporto magnetico 


il listato qui sotto. Potrai quindi 
sperimentare l'uso di questa po¬ 
tente utility; provando eventual¬ 
mente a cambiare i parametri delle 
POKE, come spiegato nel commen¬ 
to al programma pubblicato la 
scorsa settimana. 

Un'avvertenza: ovviamente que¬ 
sto programmino non funziona se 
non è già presente in memoria VE¬ 
LOCIZZATORE DI SPRITES. 


5 PRINT"{CLR}" 

: rem 

1 53 

1 0 

SYS491 52 :REM INIZIO ROUTINE L/M 

: rem 

67 

20 

POKE254,1:REM DISABILITA L'INTERRUPT 

: rem 

1 89 

30 

V=4096*13:REM CHIP VIDEO 

: rem 

1 6 

40 

FORT=832T0895 :POKET,255:NEXT: REM DEFINISCE 

LO SPRITE 



: rem 

21 8 

50 

POKE204 0,1 3:POKEV+3 9,1 :POKEV+21 ,1 

: rem 

71 

60 

POKEV,24:POKEV+l,50 

: rem 

41 

70 

POKEl023,2:POKE2,2 

: rem 

1 79 

80 

POKE700,2:POKE701,1 

: rem 

234 

90 

POKE720,24:POKE721,50 

: rem 

87 

1 00 

POKE74 0,32AND2 55 :POKE741,229 

: rem 

41 

1 1 0 

POKE2 54,0 : REM ABILITA L'INTERRUPT 

: rem 

1 2 


21 





joystick 


A 

9 » 

ji Fil rouge 

■ n un i. ii « v i - r- n i i- i ■■■in i m» m - ... .■■■■inni r m i 

Questo simpatico gioco richiama 
alla mente la trasmissione "Giochi 
senza frontiere", che alcuni sicura¬ 
mente ricorderanno. Sei infatti im¬ 
pegnato nel tentare di far scoppia¬ 
re il numero più alto possibile di 
palloni saltando verso l’alto. Que¬ 
sti palloncini sono fissati sopra di 
te, e per aiutarti nei salti puoi utiliz¬ 
zare delle piattaforme elastiche,- 
devi però fare attenzione a non ca¬ 
dere al suolo, se vuoi evitare di far¬ 
ti male e, soprattutto, di porre pre¬ 


maturamente fine alla partita! 

Vi sono 9 livelli diversi di difficoltà, 
in cui cambiano posizione e di¬ 
mensioni delle piattaforme. Inoltre 
selezionando il livello 0 avrai l'op¬ 
portunità di giocare ad un livello 
casuale, scelto dal computer. Si 
gioca con il joystick inserito nella 
porta 2; esso ti permette di direzio¬ 
nare il salto, di effettuare piccoli 
spostamenti di traiettoria in volo e 
di intensificare la tua spinta verso 
l’alto quando essa diminuisce. 


1 

5 

10 

11 
1 2 
13 
1 4 
1 5 
20 

25 

26 

30 

31 

32 

35 

36 

40 

41 

43 

44 

45 
50 
52 


REM FIL ROUGE PER COMMODORE64 

: rem 

1 04 

S=54272:HF=60 

: rem 

52 

POKE53281 11 :POKE53280,7 :PRINT"{CLR}{ 11 GIU 

} {BLU} 


{ 7 DES}LIVELLO (0-9/0=RND)???" 

:rem 

66 

GETA$:IFA$=""THENl1 

: rem 

231 

R=VAL(A$):IFR<lTHENR=INT(9*RND(1))+1 

: rem 

50 

GOSUB900: GOTO500 

: rem 

1 33 

PRINT"{CLR}{ 11 GIU'}":GOSUB600 

: rem 

212 

FORT=1TO30:PRINT:NEXT 

: rem 

85 

ONRGOTO400,410,420,430,440,450,460,470,480, 

490 



: rem 

1 1 

FORL=lTO30:POKEl024+INT(RND(1)*400),5:NEXT: 

POKE53281,0 

:TI$="000000" 

:rem 

7 

GOTO250 

: rem 

56 

POKE(1024+X+40*Y),32 

: rem 

208 

JV=PEEK(56320):FR=JVANDl6:JV=15-(JVANDl5) 

: rem 

116 

POKES + 4,32 :GOSUB620 

:rem 

41 

IFJV=4THENX=X-.1 

:rem 

1 76 

IFJV=8THENX=X+.1 

: rem 

1 79 

IFD=-1THENl50 

: rem 

1 51 

IFD=1THENY=Y+1:CN=1 

: rem 

89 

IFD=1ANDPEEK(1024+X+40*Y)=4THEN200 

: rem 

1 27 

IFD=-1 ANDPEEK(1024+X+40*Y)= 4THENY = Y+1:D = 1:W 

=-l 



: rem 

1 26 

IFPEEK(1 02 4+X+40*Y)=5THENl00 

: rem 

252 

POKE(1024+X+40*Y),CN 

: rem 

254 

POKE55296+X+40*Y,1 

: rem 

1 47 
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55 

IFX<1ORX> 39THEND = 1:W=-1 

: rem 

no 

58 

IFY>23THEN300 

: rem 

1 86 

60 

IFY < LMTTHENFORT=1TO100:NEXT:D=1:W=-1 

:rem 

20 

90 

GOTO30 

: rem 

5 

1 00 

POKEl024+X+40*Y,4 2 :POKE55296+X + 40*Y,10:HIT=HIT+1 : 

IFHI 


T>20THENl80 

: rem 

247 

105 

GOSUB650: GOTO30 

: rem 

1 35 

150 

IFLD=lTHENY=Y-l:CN=1:GOT041 

: rem 

1 76 

155 

IFLD=2THENY=Y-1:X=X-1:CN=3:G0TO41 

:rem 

61 

1 60 

IFLD=3THENY=Y-1:X=X+1:CN=2:G0T041 

: rem 

55 

1 80 

POKE53281 ,1 :POKEl024+X+40*Y,CN 

: rem 

1 70 

181 

GOSUB710:POKE53 281 ,14 :POKE53280,1 4 

: rem 

1 71 

1 82 

SC=VAL(TI$) :POKE53272,21:PRINT"{CLR}{ 10 GIU 

} {BLU} IL 


TUO PUNTEGGIO E' ";INT(SC)/I00 

: rem 

61 

185 

FORT=lT02000:NEXT:PRINT"{ 4 GIU'}{BLU}GIOCHI 

ANCORA?" 



: rem 

57 

1 90 

GETA$:IFA$<>"S"THENl 95 

:rem 

236 

192 

RESTORE:RUN 

:rem 

239 

1 95 

IFA$<>"N"THENl 90 

: rem 

1 04 

1 97 

END 

: rem 

1 20 

200 

POKEl024+X+40*(Y-l),0:Y=Y-1 

2 rem 

1 75 

201 

FORT=lT05:W=1 

2 rem 

19 

205 

JV=15-(PEEK(56320)AND!5) 

2 rem 

7 

21 0 

IFJV=1THENLD = 1 :LMT=LMT-1 .5 :IFLMT<1THENLMT=0 : 

GOTO220 



2 rem 

34 

21 1 

IFJV=4THENLD=2:GOTO220 

2 rem 

1 05 

21 2 

IFJV=8THENLD = 3 : GOTO 220 

2 rem 

m 

215 

NEXT 

2 rem 

215 

21 7 

LD=1:LMT=LMT+.5:IFLMT>21THENLMT=21 

2 rem 

138 

220 

D =-1 :LMT=LMT+1:GOTO30 

2 rem 

246 

250 

PRINT"{HOME}{ 5 GIU'}DDDDDD" 

2 rem 

104 

251 

FORT=1TO1000 :NEXT 

2 rem 

30 

255 

FORT=0TO5:POKEl024+T+40*4,0 : FORI = 1TOl00:NEXT 

■: POKEl 024 


+T+40*4, 32 :NEXT 

2 rem 

63 

256 

POKEl0 24 + 5+40*4,0 : FORI = 1TOl000 : NEXT 

2 rem 

241 

260 

FORT=4TOOSTEP-1 : POKEl024+5+40*T,1:FORI=lTOl00:NEXT:PO 


KEl024+5+40*T,32:NEXT 

2 rem 

215 

261 

FORI = l TOl00 : NEXT 

2 rem 

228 

265 

FORT=0TO4 : POKEl024 + 5+40*T,l : FORI = 1TOl00 : NEXT 

': POKEl 024 


+ 5+40*T,32 : NEXT 

2 rem 

66 

270 

POKEl024+5+40*4,0:FORT=lTOl000 : NEXT:X = 5 : Y = 4 : 

CN = 1 2 

POKE 


1024+5+40*4,32:D=-1 

2 rem 

96 

275 

POKEl024+X+40*Y,1:LD=3 

2 rem 

1 92 

277 

PRINT"{HOME}{ 5 GIU'}{ 6 SPAZI}" 

2 rem 

21 7 

280 

GOTO 3 0 

2 rem 

54 

300 

POKEl024+X+40*Y,6:GOSUB670 

2 rem 

215 

31 0 

POKE53281,14:POKE53272,21:PRINT"{CLR}{BLU}{ 

7 GIU 

' }ha 


I COLPITO SOLAMENTE"; 

2 rem 

85 

315 

PRINTHIT;"PALLONI":GOTO!85 

2 rem 

1 70 

400 

PRINT"[<6>]DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD":G 


OTO25 

: rem 

52 
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410 PRINT"[<6>]DDDDDDDDDDDDDD{ 9 SPAZI}DDDDDDDDDDDDDDDD": 

GOTO25 :rem 209 

420 PRINT"[<6>]{ 8 SU}DDDDDDDDDD{ 8 GIU'}DDDDDDDDDDDDDDDD 
DDD{ 8 SU}DDDDDDDDDD": GOTO 2 5 :rem 206 

430 PRINT"[<6>]DDDDDDDDDD{ 8 SU}DDDDDDDDDDDDDDDDDDD 

{ 8 GIU'}DDDDDDDDDD":G0T025 :rem 71 

440 PRINT"[<6>] DDDDD{ 3 SPAZl}DDDDD{ 3 SPAZI}DDDDD 

{ 3 SPAZI}DDDDD{ 3 SPAZI}DDDDDD ":G0T025 :rem 196 

450 PRINT"[<6>]{ 12 SU}DDDDD{ 4 GIU'}DDDDD{ 6 GIU'}DDDDDD 

DDDDDDDDDDDD{ 6 SU}"; :rem 138 

451 PRINT"DDDDD{ 4 SU}DDDDDD":G0T025 :rem 117 

460 PRINT"[<6>]DDDDDDDDDDDDDD} 19 SU}DDDDDDDDD{ 19 GIU'} 

"; :rem 97 

461 PRINT"DDDDDDDDDDDDDDDD" :G0T025 treni 134 

470 PRINT" [<6>]DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"; 

treni 156 

471 PRINT"{HOME}{ 24 GIU'}" trem 24 

472 PRINT"{ 13 SU}DDDDDD{ 7 DES}{ 6 GIU'}DDDDDDDDDDDDD 

{ 7 DES}{ 6 SU}DDDDDD": GOTO25 trem 171 

480 PRINT"[<6>]{ 10 SU} DDDDDDDDDDDDDD{ 9 DES}DDDDDDDDDDD 
DDDD"tG0T025 trem 67 

500 POKE56334,PEEK(56334)AND2541 POKEl,PEEK(1)AND251:FORI = 
0TO63tFORJ=0TO7 trem 75 

505 POKEl2288 + 1*8+J,PEEK(53248+1*8+J) tNEXT:NEXTtPOKEl,PEE 
K(1)OR4 trem 64 

510 POKE56334,PEEK(56334)ORI:POKE53272,(PEEK(53272)AND240 
)+12 trem 156 

512 FORCH = 0TO6 1 FORBY = 0TO7: READAtPOKEl 22 88+(8*CH)+BY,A 

trem 244 

515 NEXT:NEXT trem 83 

550 DATA24,24,60,102,153,24,24,60,153,90,60,36,24,36,66,1 



29 

: rem 

1 28 

555 

DATAI 2,12,24 8,44,58,72,132,12 9,96,96,62,104 

f 1 84,68 

,66 


,193 

: rem 

1 6 

560 

DATA0,0,0,255,255,0,0,0,60,126,126,126,126, 

1 26,60, 

24 



: rem 

208 

565 

DATA24,24,36,36,60,60,1 95,129 

: rem 

147 

570 

GOTO!4 

: rem 

58 

600 

FORL=OTO241 POKES,Lt NEXT:POKES+5,91 POKES+6,0 

:POKES+24, 


15 :SO = l00 :W=1 

: rem 

1 1 0 

601 

RETURN 

: rem 

119 

620 

HF=HF+W:IFHF< 1 THENHF = 1 

: rem 

98 

625 

POKES+5,15:POKES+6,54:POKES+l,HF:POKES+4,17 

: rem 

68 

630 

RETURN 

: rem 

1 21 

650 

POKES + 4,32:POKES+5,15:POKES+l,40 :POKES, 1 00 : 

POKES+4 

,12 


9 :FORT=1TO30 :NEXT 

: rem 

33 

660 

RETURN 

: rem 

1 24 

670 

FORL=OTO24:POKES+L,0:NEXTtPOKES+5,20 

:rem 

248 

671 

POKES+24,15 

:rem 

67 

675 

FORT=20TO80:POKES+4,32:POKES+l,T:POKES,T+20 

: POKES+4,3 


3 :FORI = lTOl0 :NEXT:NEXT 

: rem 

1 5 


24 



680 

685 

690 
700 
71 0 
720 

725 

730 

740 

800 

805 

81 0 
900 


FORT=1TO50 : rem 79 

IFT/15 = 1NT(T/l 5)THENPOKES+ 4,3 2 :POKES +1,2 0 : PO KES,5 0 : PO 
KES+4,33 :POKES+5,15 :rem 108 

NEXT : rem 2 22 

RETURN : rem 119 

FORL=0TO24:POKES+L,0 :NEXT :rem 7 3 

POKES+3,8:POKES+5,41 :POKES+6,89:POKES+14,117 :POKES+18 
,16:POKES+24,143 :rem 73 

READFR,DR:IFFR=OTHENRETURN :rem 241 

POKES+4,65::FORT=lTODR*2:FQ=FR+PEEK(S+27)/2:HF=INT(FQ 
/256):LF=FQAND255 :rem 6 

POKES+O,LF:POKES+1,HF:NEXT:POKES+4,64:G0T072 5 

:rem 67 

DATA4817,2,5103,2,5407,2,8583,4,5407,2,8583,4 

: rem 179 


DATA5407,4,8583,12,9634,2,1 0207,2,1081 4,2,8583,2 

:rem 72 

DATA9634,4,1081 4,2,8583,2,9634,4,8583,12,0,0 : rem 128 
PRINT"{CLR}{ 11 GIU'}{ 3 DES}{BLU}SIAMO AL LIVELLO 
{RED}{ 9 SPAZIÌ";R:RETURN :rem 14 



Corsa nell'iperspazio 



State compiendo urr normalissimo 
viaggio nell’iperspazio per portare 
la posta in un 'altra galassia, molto 
lontana dalla vostra, quando im¬ 
provvisamente vi trovate in un luo¬ 
go a tutti sconosciuta, dove ci so¬ 
no stretti e intricati labirinti di anti¬ 
materia nei quali dovrete riuscire a 
passare per tornare a casa sani e 
salvi e riabbracciare i vostri familia¬ 
ri, ignari della vostra difficilissima 
situazione. 

Il tunnel di antimateria che dovrete 
percorrere è lungo esattamente 


135 anni luce, e per muovervi in 
esso dovete usare i seguenti tasti: 


A .... per andare a sinistra 
S .... per andare a destra 

Z . per andare giù 

W . per andare su 


Premendo la barra spazio potrete 
lanciare uno dei missili intergalatti¬ 
ci che (fino a 9 consecutivamente) 
vi consentiranno di creare dei fori 
nell’antimateria, nel caso ostruisca 
il passaggio. 

Ed ora buon divertimento!! 
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12 POKE53280,4:PRINT"{CLR} ATTENDERE, 

PREGO..." 

: rem 

97 

15 REM SETTA I DATI INIZIALI 


: rem 

143 

18 DIMKX(255),KY(255) 


: rem 

144 

20 GOSUB5000 


: rem 

1 67 

22 REM METTE LO SCHERMO A 40 COLONNE 


: rem 

38 

24 POKE53270,PEEK(53270)OR8 


: rem 

1 8 

25 REM COLORA IL BORDO DI NERO 


: rem 

21 5 

26 POKEUB,U0:POKEUG,U9 


: rem 

1 58 

27 GOSUB3000 


: rem 

1 72 

28 PRINT"{CLR}{ 25 GIU'}" 


: rem 

1 1 9 

30 REM X E Y SONO LE COORDINATE DELLA 

NAVETTA 

: rem 

106 

32 REM FG E* IL BANCO DEL MISSILE 


: rem 

37 

35 X=1 50 :Y=80:FG=9 


: rem 

8 

40 REM METTE LO SCHERMO A 38 COLONNE 


: rem 

45 

45 POKE53270,PEEK(53270)AND247 


2 rem 

1 72 

60 REM SETTA E VISUALIZZA GLI SPRITE 


2 rem 

21 3 

62 POKEV+2,X:POKEV+3,Y 


2 rem 

1 1 2 

65 POKE2041,241:POKEV+21,2:POKEV+40,UF 


2 rem 

228 

70 POKE2 04 2,242:POKE2 04 0,240 :POKEV+39, 

U2:POKEV+41,U0 




2 rem 

28 

75 POKEV+16,0 :POKEV+30,0:POKEV+31 ,0 


2 rem 

50 

100 REM SETTA LA SUCCESSIVA LINEA DI SCROLL 

2 rem 

65 

110 REM D=LIVELLO DI DIFFICOLTA' (MAX 

9) 

2 rem 

7 

120 D=1:E=0:A=0:B=0:C=0:EE=.2 


2 rem 

77 

125 POKEUV,15 :POKEUA+7,129 :POKEUD+7,241 :POKEUW+7 

,17 




2 rem 

95 

130 A$ = " { RV S } { 45 SPAZI}" 


2 rem 

1 40 

132 Al $ = " Z ZZZZZZZZZZZZZZ 

z z z z z 

Z Z 

Z" 



2 rem 

67 

1 35 3$ = "{OFF}{ 42 SPAZI}" 


2 rem 

1 8 

140 C$="{ 5 SPAZI}*{ 5 SPAZI}*} 13 SPAZI}*} 13 SPAZI} 

★ " 



2 rem 

37 

142 C$=C$+"{ 37 SPAZI}*} 9 SPAZI}" 


2 rem 

59 

150 E=E+EE*RND( 1 ) 


2 rem 

1 62 

1 60 ONDGOTO200,2 50,300,350,400,450,500 

,550,600 

2 rem 

87 

200 D$=LEFT$(A$,SIN(E)*9+10)+LEFT$(B$, 

20)+A$ 

2 rem 

38 

210 IFE>15THENPOKEUG,U3:D=2 


2 rem 

1 66 

220 GOTO650 


2 rem 

1 04 

250 D$=LEFT$(A$,SIN(E)*11+12)+LEFT$(B$ 

,16) +A$ 

2 rem 

91 

260 IFE>3 OTHENPOKEUG,UU:D= 3 


2 rem 

203 

270 GOTO650 


2 rem 

109 

300 D$=LEFT$(A$,(SIN(E)+COS(E*.9))*4.5+12)+LEFT$ 

(B$,16)+A 

$ 


2 rem 

20 

305 IFRND(1)<.08THEND$ = "}RVS}}OFF}"+A$ 


2 rem 

171 

310 IFE>45THENPOKEUG,U5:D=4 


2 rem 

174 

320 GOTO650 


2 rem 

105 

350 N$=B$:IFRND(1)<.0 8THENN? = "}OFF}" +Al $ 

2 rem 

35 

355 D$=LEFT$(A$,(SIN(E)+COS(E*1.1))*4. 

5 + 1 2)+LEFT$(N$, 

1 6) + 

A$ 


2 rem 

83 

360 IFE>60THENPOKEUG,U9:D=5 


2 rem 

1 81 
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370 

GOTO650 

: rem 

no 

400 

IFRND(1)>.6THEND$="{OFF}{RVS}"+B$:G0T0410 

: rem 

128 

405 

D$ = "{OFF}{RVS}{OFF}"+MID$(C$,INT(RND(1) *40+1 

) r 4 0 ) 




: rem 

225 

41 0 

IFE>75THENPOKEUG,U7:D=6 

: rem 

182 

420 

GOTO650 

: rem 

106 

450 

D$ =LEFT$ (A$,SIN(E) *12+13)+LEFT$(B$,14)+A$ 

:rem 

93 

460 

IFE>90THENPOKEUG,UR:D=7 

: rem 

21 2 

470 

GOTO650 

: rem 

1 1 1 

500 

D$ =LEFT$(A$, (SIN(E)+COS(E*5.1)) *4.5+12)+LEFT$(B$, 

16) + 


A$ 

: rem 

67 

51 0 

IFE>105THENPOKEUG,U8:D=8 

: rem 

228 

520 

GOTO650 

: rem 

1 07 

550 

IFRND(1)>.25THEND$="{OFF}{RVS}"+B$:GOTO560 

: rem 

1 89 

555 

D$ = "{OFF}{RVS}{OFF}"+MID$(Al $,INT(RND( 1 ) *2 + 1) ,40) 




: rem 

228 

560 

IFE>120THENPOKEUG,Ul:D=9 

: rem 

224 

570 

GOTO650 

: rem 

112 

600 

IFRND(1)>.5THEND$ = "{OFF}{RVS}"+B$:GOT061 0 

:rem 

131 

605 

D$ = " {OFF}{RVS}"+A$ 

: rem 

1 84 

61 0 

IFEC135THEN650 

: rem 

1 0 

620 

FORK=OTOl 4 :PRINTTAB(K)" BRAVISSIMO, HAI SUPERATO 

LA P 


ROVA{ 2 SPAZI} ! ! ! !” 

: rem 

1 98 

630 

POKEUB,K:NEXTK 

: rem 

154 

640 

GOT09110 

: rem 

1 58 

650 

PRINTU0$;LEFT$(D$,42) 

: rem 

1 66 

660 

POKEUS+1,FG+48 

: rem 

31 

700 

REM CONTROLLA I TASTI 

: rem 

247 

71 0 

K=PEEK ( 197) : IFM< 0THENM=0 

: rem 

1 62 

71 2 

POKEUH+7,2:POKEUL+7,M*8 : FG=FG+1 

:rem 

90 

71 5 

IFK=64THENM=M-2 : GOTO800 

: rem 

142 

71 6 

IFKO60THEN725 

: rem 

37 

71 8 

IFFG<2THEN800 

: rem 

241 

720 

F=1 : FX=X:FY=Y+6 : POKEV,FX:POKEV+1,FY:POKEV+21 

/ 3 : FG 

= FG- 


2 

: rem 

1 49 

722 

IFPEEK ( V+l6)=2THENPOKEV+l6,3 

: rem 

1 56 

723 

IFFG<0THENFG=0 

: rem 

77 

724 

GOTO800 

: rem 

11 0 

725 

M=M+1 : 1FM> 9 THENM= 9 

: rem 

80 

730 

IF(2ANDPEEK(V+l6))AND(K=l0ORK=l3)THEN770 

:rem 

68 

735 

IFK=10THENX=X-M:IFX<30THENX=30 

: rem 

148 

740 

IFK=13THENX= X+M:IFX>255THENPOKEV+16,PE (V+l6)+2 : 

X=X- 


255 

: rem 

1 94 

750 

IFK=12THENY=Y+M:IFY>200THENY=200 

: rem 

245 

760 

IFK=9THENY=Y-M:IFY<60THENY=60 

: rem 

1 1 6 

765 

GOTO800 

: rem 

1 1 5 

770 

IFK=10THENX=X-M:IFX<OTHENPOKEV+16,PEEK(V+1 6) 

-2 : X= 

255+ 


X 

: rem 

86 

780 

IFK=13THENX=X+M:IFX>60THENX=60 

: rem 

157 

800 

REM VISUALIZZA E CONTROLLA LE COLLISIONI 

; rem 

7 

805 

IFFG>9THENFG=9 

: rem 

98 


27 



81 0 

POKEV+2,X:POKEV+3,Y 


: rem 

1 61 

820 

IFPEEK( V+31)AND2THEN9000 


:rem 

129 

850 

IFFClTHENl 50 


: rem 

1 64 

852 

IFF=2THEN860 


:rem 

176 

855 

POKEUV,15 :POKEUA,12:POKEUD,128:POKEUW,l7 

:F= 

2 :rem 

253 

860 

FORK=0TO4 0STEP8:FY=FY+8:POKEV+1,FY:IFFY>220THEN900 




:rem 

184 

865 

POKEUL,FY:POKEUH,6 


: rem 

166 

870 

IFPEEK(V+31)<>1THENNEXTK:GOTO990 


: rem 

2 

875 

NX=0:IFPEEK(V+l6)AND!THENFX=FX+255:NX=1 


: rem 

1 59 

880 

Z=US+INT((FX-2 5)/8)+INT((FY-42)/8 + 1)*40 


:rem 

107 

882 

POKEUV,15:POKEUA,72 :POKEUD,128:POKEUH,11 


:rem 

255 

883 

POKEUL,OrPOKEUW,129 


: rem 

1 72 

884 

POKEV+4,FX:POKEV+5,FY:IFNXTHENPOKEV+16,PEEK(V+l6)+4 




: rem 

21 8 

885 

POKEV+21 ,6 


: rem 

26 

886 

FORK=0TO3:POKEZ+K,32:POKEZ-40+K,32 


: rem 

64 

887 

NEXTK 


: rem 

49 

900 

F= 0 :POKEV+ 21,2 :IFNXTHENPOKEV+16,PEEK(V+16)- 

4 : rem 

151 

91 0 

GOSUB9500 

- 

: rem 

232 

990 

GOTOl50 


: rem 

113 

999 

END 


: rem 

1 30 

3000 

PRINT"{CLR}{ 5 GIU'H 7 SPAZI}{RVS}{YEL}{ 

2 SPAZI 

}CO 


RSA NELL'IPERSPAZIO} 2 SPAZI}{OFF}" 


: rem 

142 

3200 

PRINTU0$"{GIU'}{ 7 SPAZI}PREMI UN TASTO 

PER GIOCARE" 




: rem 

220 

321 0 

GETM$:IFM$ = ""THEN321 0 


: rem 

1 99 

3220 

RETURN 


: rem 

1 67 

5000 

REM SUBROUTINE DI LETTURA DATI SPRITE 


: rem 

96 

5001 

REM LA VARIABILE DI INIZIO DEI DATI E' 

"v" 

: rem 

31 

5002 

V=53248 


: rem 

96 

5004 

REM ALTERA LE FINE MEMORIA BASIC E L'INIZIO MEMORIA 


VARIABILI 


: rem 

1 72 

5005 

POKE52,60:POKE56,60 


: rem 

88 

5006 

REM CARICA I DATI NEI BLOCCHI DA 240 IN 

SU 

: rem 

231 

5007 

FORK=OTO2:FORJ=OT062 


: rem 

35 

5008 

READA:POKE(240+K)* 6 4 +J,A:NEXTJ,K 


: rem 

1 60 

5010 

REM SPRITE DEL MISSILE 


: rem 

108 

5020 

DATA0,0,0,0,0,0,0,0 


: rem 

149 

5030 

DATA0,0,0,0,0,0,0,0 


: rem 

1 50 

5040 

DATA0,0,0,0,0,0,0,0 


: rem 

1 51 

50 50 

DATA0,124,0,0,56,0,0,1 6 


: rem 

113 

5060 

DATA0,0,16,0,0,16,0,0 


: rem 

7 

5070 

DATAI 6,0,0,0,0,0,0,0 


: rem 

209 

5080 

DATA0,0,0,0,0,0,0,0 


: rem 

1 55 

5090 

DATA0,0,0,0,0,0,0 


: rem 

64 

51 1 0 

REM SPRITE DELLA NAVETTA 


: rem 

247 

51 20 

DATA0,O,0,126,60,126,62,24 


: rem 

12 

51 30 

DATAI 24,30,24,120,1 5,24,240,7 


: rem 

1 63 

51 40 

DATAI 53,224,1,255, 1 28,0,255,0 


: rem 

173 

51 50 

DATA0,255,0,127,255,254,63,255 


:rem 

235 
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5160 DATA252,63,189,252,47/255,244,39 :rem 
5170 DATA189,228,3,255,192,1,165,128 :rem 
5180 DATAO,231,0,0,102,0,0,60 :rem 
5190 DATAO,0,24,0,0,24,0 :rem 
5210 REM SPRITE DELLA NAVETTA ESPLOSA :rem 
5220 DATA34,162,73,84,20,84,42,44 :rera 
5230 DATA84,20,129,40,74,8,160,165 :rem 
5240 DATAI 7,68,1 6, 1 70,1 30,32,85,0 :rem 
5250 DATA4,170,0,85,85,84,0,124 :rem 
5260 DATA4,21,21,84,40,170,160,36 :rem 
5270 DATAI 61 ,100,0,9,66,1 ,36,128 :rem 
5280 DATA42,138,84,1,36,0,0,0 : rem 
5290 DATA72,66,128,0,8,0,16 :rem 
7000 REM ***************************** : rem 
7002 REM CODICI COLORI :rem 
700 5 REM (SONO USATI SOLO QUESTI COLORI) : rem 
7010 U0 = 0:U0$ = "{BLK}":REM NERO : rem 
7020 U1 =1:Ul $ = "{WHT}":REM BIANCO : rem 
7030 U2=2:U2$="{RED} " : REM ROSSO : rem 
7040 U3 = 5:U3$ = "{GRN}": REM VERDE SCURO : rem 
70 50 U4 = 6:U4$ = "{BLU}":REM BLU SCURO : rem 
7060 U5=8:U5$="[<1>]":REM ARANCIONE :rem 
7070 U6 = 9:U6$ = "[<2>]":REM MARRONE : rem 
7080 U7 = l 0:U7$ = "[<3>]":REM ROSA :rem 
7090 U8=l3:U8$="[<6>]":REM VERDE CHIARO : rem 
7100 U9 = l 4:U9$ = "[<7>]": REM BLU CHIARO : rem 
7110 UU=4:UU$="{PUR}":REM VIOLA :rem 
7120 UR=12:UR$="[<5>]": REM GRIGIO CHIARO : rem 
7130 UE= 7 :UE$ = "{YEL}”: REM GIALLO : rem 
7140 UF=11 :UF$ = "[<4>]": REM GRIGIO SCURO : rem 
7200 REM LOCAZIONI DI MAGGIORE IMPORTANZA :rem 
7210 US=1024:REM INIZIO SCHERMO CARATTERI :rem 
7220 UC= 552 96:REM INIZIO SCHERMO COLORI : rem 
7230 UG=55281:REM COLORE DI FONDO :rem 
7240 UB = 552 80:REM COLORE DI BORDO : rem 
7 3 00 REM LOCAZIONI PER IL SUONO : rem 
7310 UV= 542 96 : REM VOLUME PER TRE VOCI :rem 
7320 UA= 5 4 2 7 7 : REM ATTACCO VOCE 1 :rem 
7330 UD=54278:REM SUSTAIN VOCE 1 :rem 
7340 UH = 54273:REM BYTE ALTO VOCE 1 : rem 
7350 UL= 54272 :REM BYTE BASSO VOCE 1 :rem 
7360 UW= 54276 :REM FORMA D'ONDA VOCE 1 :rem 
7400 RETURN :rem 
7500 REM *************************** :rem 
8000 REM SUBROUTINE PER LA PRODUZIONE DI SUONI :rem 
9000 REM NAVE COLPITA :rem 
9010 POKEV-t-4 0,U0 :POKEV+4 ,X:POKEV+5,Y : rem 
9020 IFPEEK(V+l6)AND2THENPOKEV+16,6 :rem 


9030 POKEUV,15:POKEUA,15rPOKEUD,63 :POKEUH,7:POKEUL,20 

: rem 
: rem 


100 
44 
1 55 
173 
1 5 
1 37 
1 88 
1 32 
35 
1 25 

79 
181 

97 
1 09 
32 
1 66 
0 

241 
246 
1 06 
220 
100 
0 
77 
77 
1 82 
1 62 
1 96 
1 98 
1 30 
50 
22 
116 
1 43 
1 38 
1 02 
1 82 
35 

80 
141 
21 7 

63 

I 71 
30 
90 

227 
21 3 
101 

97 

II 3 


9032 POKEUW,129 


29 



9035 

FORK=0TO2 0 :POKEV+4 0,U1 :FORJ=1T020 :NEXTJ 

:rera 

22 

9040 

POKEV+4 0,U0:FORJ = 1T02 0 :NEXTJ,K 

: rem 

170 

9050 

POKEV+21,6 

: rem 

67 

9060 

FORJ=0 TO 2 0 0 :NEXTJ 

: rem 

101 

9070 

POKEV+21,4 

: rem 

67 

9080 

FOR J=0TO2'00: NEXTJ: POKEV+21 , 0 : POKEUW/1 28 

:rem 

236 

91 00 

PRINTU0$;"{HOME} DISTRUTTO" 

: rem 

1 00 

91 02 

PRINT"{GIU 1 } HAI PERCORSO"INT(E*10)/10 ;" 

ANNI LUCE" 



: rem 

87 

911 0 

PRINT" GIOCHI ANCORA (S/N)?" 

: rem 

99 

91 1 1 

FORZX=1TOl0 :GETA$:NEXT 

: rem 

207 

91 20 

GETA$:IFA$ = ""THEN91 20 

s rem 

1 87 


9130 IFA$ = "S"THENGOSUB9500:POKEUV,0 :PRINT"{ 2 SPAZl}OK... 


" : RUN 

9140 IFA$="N"THENGOSUB9600:PRINT"{CLR} GRAZIE 
OCATO CON ME. CIAO !":END 


:r em 224 
PER AVER Gl 
: rem 120 


9150 GOTO91 20 :rem 212 

9500 REM CANCELLA IL SUONO NELLA VOCE 1 :rem 216 

9510 POKEUA,0 :POKEUD,0 :POKEUH,0 :POKEUL,0 :POKEUW,128:RETUR 
N :rem 12 

9600 POKE532 70,PEEK(53270)OR8 :RETURN :rem 149 
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A TUTTA MUSICA CON 





MAXI PRESTAZIONE IN MINISPAZIO 

Il ino laboratorio musicale, completo e perfetto. 
Tutto qui: il Commodore 64. il SOUND BUGGY. 
minitastiera SIEL. il software. 


Volume generale 

Volume per la parte 
orchestrale 


Volume per lo batteria 
elettronica 


Musica dal calcolatore 
musica vera, musica tua! 

Con l’unità periferica 
SOUND BUGGY, e la tastierina 
musicale SIEL da sovrapporre a 
quella alfanumerica, il tuo 
Commodore 64 si trasforma in 
un’autentica band. 

Se sei già esperto di musica 
SOUND BUGGY ti porterà alla 
perfezione. Se sei un principiante 
diventerai, in pochi giorni, 
concertista e arrangiatore, 
comporrai musica tua e potrai 
ascoltarla in una perfetta 
registrazione elettronica, 
collegandoti a ogni impianto 
stereo, videotelevisivo, 
monitor C 64. 


UN ECCEZIONALE PACCHETTO DI 
PROGRAMMI 

Grazie allo straordinario 

software di SOUND BUGGY 
potrai eseguire o comporre su 25 
ritmi (12 preregistrati), e potrai 
correggere, migliorare, registrare. 

In più, tramite interfaccia 
MIDI, SOUND BUGGY 
comunica anche con expander, 
sintetizzatori, sequencer ecc. 

Insomma, SOUND BUGGY 
è un vero prodigio dell'elettronica 
servizio della tua creatività 
musicale. 


Spia luminosa 
di corretta 
alimentazione 


Questa Cedola 
rappresenta l’unico 
modo di ordinare 
SOUND BUGGY. 

Ritagliala e spediseli 
subito. 

Usufruirai dello 
speciale prezzo 
bloccato fino al 
31 . 12 . 85 . 
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PRIVILEGI A TA DI ACQUISTO 

SOUND nu&sr 

Da inviare in busta chiusa a: “Filodiretto SIEL” 
SIEL Società Industrie Elettroniche s.p.a. 
CASELLA POSTALE 10823 - 201 24 MILANO MI 


Sì, desidero acquistare 
SOUND BUGGY, la 
vostra unità periferica 
per C 64. Speditemela 
contrassegno completa 
di minitastiera, 
pacchetto software sic 
su disco che su cassetta, 
libretto istruzioni al 
prezzo speciale di 


L. 185.000 (incluse 
L. 27.650 IVA e L 3.750 
di spese poste/../. 

E inteso che il mio 
SOUND BUGGY sarà 
protette da 

Garanzia per 1 anno. 


CAP_ 

Data — 


-.Località 


_hrrrsr 


(aer i n?* ori occorre ausila dei ceniti 


S 

s 

■ 

Nome 


Cognome 


CEDOLA 


Song Edit 

E il cuore del SOUND BUGGY 
e permette di dirigere 
I'"orchestro". Infatti consente 
di intervenire in tempo reole / 
modificando i parametri 
relativi a: Solo, Rhythm, 
Accompaniment, Sequencer. 


nuovidea 






















